From: Glenn Morris <rgm@gnu.org>
Date: Sat, 17 Sep 2011 19:05:52 +0000 (-0700)
Subject: complete-tag fix for bug#9526
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~2235
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=4dd2bae80cf9ed5fa58694c3e4f7bebba2688435;p=emacs.git

complete-tag fix for bug#9526

* lisp/progmodes/etags.el (complete-tag):
Fix call to completion-in-region. (cf info-complete).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4c462d9c4fe..5c561594a25 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-09-17  Glenn Morris  <rgm@gnu.org>
+
+	* progmodes/etags.el (complete-tag):
+	Fix call to completion-in-region.  (Bug#9526)
+
 2011-09-17  Juri Linkov  <juri@jurta.org>
 
 	* textmodes/ispell.el (ispell-word): Add to the error message
diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index a3300077909..d321e9c1388 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -2070,7 +2070,9 @@ for \\[find-tag] (which see)."
   (let ((comp-data (tags-completion-at-point-function)))
     (if (null comp-data)
 	(error "Nothing to complete")
-      (apply 'completion-in-region comp-data))))
+      (completion-in-region (car comp-data) (cadr comp-data)
+			    (nth 2 comp-data)
+			    (plist-get (nthcdr 3 comp-data) :predicate)))))
 
 (dolist (x '("^No tags table in use; use .* to select one$"
 	     "^There is no default tag$"